/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / hyperbole / hsys-w3.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 35 32 3a 32 | 31 20 31 39 39 35 0a 3b | 14:52:2|1 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 65 78 |;; from |file /ex|
|00000060| 70 6f 72 74 2f 77 69 6c | 6c 6f 77 33 2f 78 65 6d |port/wil|low3/xem|
|00000070| 61 63 73 2d 31 39 2e 31 | 33 2d 72 65 6c 65 61 73 |acs-19.1|3-releas|
|00000080| 65 2f 65 64 69 74 6f 72 | 2f 6c 69 73 70 2f 68 79 |e/editor|/lisp/hy|
|00000090| 70 65 72 62 6f 6c 65 2f | 68 73 79 73 2d 77 33 2e |perbole/|hsys-w3.|
|000000a0| 65 6c 0a 3b 3b 3b 20 65 | 6d 61 63 73 20 76 65 72 |el.;;; e|macs ver|
|000000b0| 73 69 6f 6e 20 31 39 2e | 31 33 20 58 45 6d 61 63 |sion 19.|13 XEmac|
|000000c0| 73 20 4c 75 63 69 64 2e | 0a 3b 3b 3b 20 62 79 74 |s Lucid.|.;;; byt|
|000000d0| 65 63 6f 6d 70 20 76 65 | 72 73 69 6f 6e 20 32 2e |ecomp ve|rsion 2.|
|000000e0| 32 35 3b 20 31 2d 53 65 | 70 2d 39 34 2e 0a 3b 3b |25; 1-Se|p-94..;;|
|000000f0| 3b 20 6f 70 74 69 6d 69 | 7a 61 74 69 6f 6e 20 69 |; optimi|zation i|
|00000100| 73 20 6f 6e 2e 0a 3b 3b | 3b 20 74 68 69 73 20 66 |s on..;;|; this f|
|00000110| 69 6c 65 20 75 73 65 73 | 20 6f 70 63 6f 64 65 73 |ile uses| opcodes|
|00000120| 20 77 68 69 63 68 20 64 | 6f 20 6e 6f 74 20 65 78 | which d|o not ex|
|00000130| 69 73 74 20 69 6e 20 45 | 6d 61 63 73 20 31 38 2e |ist in E|macs 18.|
|00000140| 0a 0a 28 69 66 20 28 61 | 6e 64 20 28 62 6f 75 6e |..(if (a|nd (boun|
|00000150| 64 70 20 27 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |dp 'emac|s-versio|
|00000160| 6e 29 0a 09 20 28 6f 72 | 20 28 61 6e 64 20 28 62 |n).. (or| (and (b|
|00000170| 6f 75 6e 64 70 20 27 65 | 70 6f 63 68 3a 3a 76 65 |oundp 'e|poch::ve|
|00000180| 72 73 69 6f 6e 29 20 65 | 70 6f 63 68 3a 3a 76 65 |rsion) e|poch::ve|
|00000190| 72 73 69 6f 6e 29 0a 09 | 20 20 20 20 20 28 73 74 |rsion)..|     (st|
|000001a0| 72 69 6e 67 2d 6c 65 73 | 73 70 20 65 6d 61 63 73 |ring-les|sp emacs|
|000001b0| 2d 76 65 72 73 69 6f 6e | 20 22 31 39 22 29 29 29 |-version| "19")))|
|000001c0| 0a 20 20 20 20 28 65 72 | 72 6f 72 20 22 54 68 69 |.    (er|ror "Thi|
|000001d0| 73 20 66 69 6c 65 20 77 | 61 73 20 63 6f 6d 70 69 |s file w|as compi|
|000001e0| 6c 65 64 20 66 6f 72 20 | 45 6d 61 63 73 20 31 39 |led for |Emacs 19|
|000001f0| 2e 22 29 29 0a 0a 28 66 | 73 65 74 20 27 69 62 74 |."))..(f|set 'ibt|
|00000200| 79 70 65 73 3a 3a 68 77 | 33 3a 6c 69 6e 6b 2d 66 |ypes::hw|3:link-f|
|00000210| 6f 6c 6c 6f 77 20 23 5b | 6e 69 6c 20 22 08 c1 3d |ollow #[|nil "..=|
|00000220| 3f ad 92 c2 c3 21 89 1c | ad 8a c5 0c 21 88 0e 06 |?....!..|....!...|
|00000230| c7 0c 40 5c 22 29 87 22 | 20 5b 6d 61 6a 6f 72 2d |..@\")."| [major-|
|00000240| 6d 6f 64 65 20 77 33 2d | 6d 6f 64 65 20 68 70 61 |mode w3-|mode hpa|
|00000250| 74 68 3a 77 77 77 2d 61 | 74 2d 70 20 74 20 6c 69 |th:www-a|t-p t li|
|00000260| 6e 6b 2d 61 6e 64 2d 70 | 6f 73 20 69 62 75 74 3a |nk-and-p|os ibut:|
|00000270| 6c 61 62 65 6c 2d 73 65 | 74 20 68 72 75 6c 65 3a |label-se|t hrule:|
|00000280| 61 63 74 69 6f 6e 20 68 | 77 33 3a 6c 69 6e 6b 2d |action h|w3:link-|
|00000290| 66 6f 6c 6c 6f 77 5d 20 | 34 20 22 5c 0a 57 68 65 |follow] |4 "\.Whe|
|000002a0| 6e 20 6e 6f 74 20 69 6e | 20 61 20 77 33 20 62 75 |n not in| a w3 bu|
|000002b0| 66 66 65 72 2c 20 66 6f | 6c 6c 6f 77 20 61 6e 79 |ffer, fo|llow any|
|000002c0| 20 75 72 6c 20 28 6c 69 | 6e 6b 29 20 61 74 20 70 | url (li|nk) at p|
|000002d0| 6f 69 6e 74 2e 22 5d 29 | 0a 28 62 79 74 65 2d 63 |oint."])|.(byte-c|
|000002e0| 6f 64 65 20 22 c0 c1 c2 | c3 c4 c3 46 5c 22 88 c5 |ode "...|...F\"..|
|000002f0| c6 c7 c8 23 88 c9 ca 21 | 87 22 20 5b 73 65 74 70 |...#...!|." [setp|
|00000300| 6c 69 73 74 20 69 62 74 | 79 70 65 73 3a 3a 68 77 |list ibt|ypes::hw|
|00000310| 33 3a 6c 69 6e 6b 2d 66 | 6f 6c 6c 6f 77 20 74 6f |3:link-f|ollow to|
|00000320| 2d 70 20 6e 69 6c 20 73 | 74 79 6c 65 20 73 79 6d |-p nil s|tyle sym|
|00000330| 73 65 74 3a 61 64 64 20 | 68 77 33 3a 6c 69 6e 6b |set:add |hw3:link|
|00000340| 2d 66 6f 6c 6c 6f 77 20 | 69 62 74 79 70 65 73 20 |-follow |ibtypes |
|00000350| 73 79 6d 62 6f 6c 73 20 | 72 75 6e 2d 68 6f 6f 6b |symbols |run-hook|
|00000360| 73 20 68 74 79 70 65 3a | 63 72 65 61 74 65 2d 68 |s htype:|create-h|
|00000370| 6f 6f 6b 5d 20 36 29 0a | 28 66 73 65 74 20 27 61 |ook] 6).|(fset 'a|
|00000380| 63 74 79 70 65 73 3a 3a | 68 77 33 3a 6c 69 6e 6b |ctypes::|hw3:link|
|00000390| 2d 66 6f 6c 6c 6f 77 20 | 23 5b 28 6c 69 6e 6b 2d |-follow |#[(link-|
|000003a0| 6c 61 62 65 6c 29 20 22 | 08 3b ac 84 c1 c2 21 88 |label) "|.;....!.|
|000003b0| c3 08 21 87 22 20 5b 6c | 69 6e 6b 2d 6c 61 62 65 |..!." [l|ink-labe|
|000003c0| 6c 20 65 72 72 6f 72 20 | 22 28 68 77 33 3a 6c 69 |l error |"(hw3:li|
|000003d0| 6e 6b 2d 66 6f 6c 6c 6f | 77 29 3a 20 4c 69 6e 6b |nk-follo|w): Link|
|000003e0| 20 6c 61 62 65 6c 20 6d | 75 73 74 20 62 65 20 67 | label m|ust be g|
|000003f0| 69 76 65 6e 20 61 73 20 | 61 20 73 74 72 69 6e 67 |iven as |a string|
|00000400| 2e 22 20 77 33 2d 66 65 | 74 63 68 5d 20 32 20 22 |." w3-fe|tch] 2 "|
|00000410| 5c 0a 46 6f 6c 6c 6f 77 | 73 20 61 20 6c 69 6e 6b |\.Follow|s a link|
|00000420| 20 67 69 76 65 6e 20 62 | 79 20 4c 49 4e 4b 2d 4c | given b|y LINK-L|
|00000430| 41 42 45 4c 2e 22 20 22 | 73 55 52 4c 20 74 6f 20 |ABEL." "|sURL to |
|00000440| 66 6f 6c 6c 6f 77 3a 20 | 22 5d 29 0a 28 62 79 74 |follow: |"]).(byt|
|00000450| 65 2d 63 6f 64 65 20 22 | c0 c1 c2 5c 22 88 c3 c4 |e-code "|...\"...|
|00000460| c5 c6 23 88 c7 c8 21 87 | 22 20 5b 73 65 74 70 6c |..#...!.|" [setpl|
|00000470| 69 73 74 20 61 63 74 79 | 70 65 73 3a 3a 68 77 33 |ist acty|pes::hw3|
|00000480| 3a 6c 69 6e 6b 2d 66 6f | 6c 6c 6f 77 20 6e 69 6c |:link-fo|llow nil|
|00000490| 20 73 79 6d 73 65 74 3a | 61 64 64 20 68 77 33 3a | symset:|add hw3:|
|000004a0| 6c 69 6e 6b 2d 66 6f 6c | 6c 6f 77 20 61 63 74 79 |link-fol|low acty|
|000004b0| 70 65 73 20 73 79 6d 62 | 6f 6c 73 20 72 75 6e 2d |pes symb|ols run-|
|000004c0| 68 6f 6f 6b 73 20 68 74 | 79 70 65 3a 63 72 65 61 |hooks ht|ype:crea|
|000004d0| 74 65 2d 68 6f 6f 6b 5d | 20 34 29 0a 28 66 73 65 |te-hook]| 4).(fse|
|000004e0| 74 20 27 68 77 33 3a 6c | 69 6e 6b 2d 66 6f 6c 6c |t 'hw3:l|ink-foll|
|000004f0| 6f 77 3a 68 65 6c 70 20 | 23 5b 28 26 6f 70 74 69 |ow:help |#[(&opti|
|00000500| 6f 6e 61 6c 20 62 75 74 | 29 20 22 c0 c1 21 ab 84 |onal but|) "..!..|
|00000510| 5c 6e c1 21 87 5c 6e c3 | c4 5c 22 87 22 20 5b 66 |\n.!.\n.|.\"." [f|
|00000520| 62 6f 75 6e 64 70 20 77 | 33 2d 73 68 6f 77 2d 68 |boundp w|3-show-h|
|00000530| 69 73 74 6f 72 79 2d 6c | 69 73 74 20 68 72 75 6c |istory-l|ist hrul|
|00000540| 65 3a 61 63 74 69 6f 6e | 20 65 72 72 6f 72 20 22 |e:action| error "|
|00000550| 28 68 77 33 3a 6c 69 6e | 6b 2d 66 6f 6c 6c 6f 77 |(hw3:lin|k-follow|
|00000560| 3a 68 65 6c 70 29 3a 20 | 57 33 20 6d 75 73 74 20 |:help): |W3 must |
|00000570| 62 65 20 6c 6f 61 64 65 | 64 20 74 6f 20 64 69 73 |be loade|d to dis|
|00000580| 70 6c 61 79 20 57 57 57 | 20 68 69 73 74 6f 72 79 |play WWW| history|
|00000590| 22 5d 20 33 20 22 5c 0a | 44 69 73 70 6c 61 79 73 |"] 3 "\.|Displays|
|000005a0| 20 68 69 73 74 6f 72 79 | 20 6c 69 73 74 20 6f 66 | history| list of|
|000005b0| 20 77 77 77 20 6e 6f 64 | 65 73 20 70 72 65 76 69 | www nod|es previ|
|000005c0| 6f 75 73 6c 79 20 76 69 | 73 69 74 65 64 2e 22 20 |ously vi|sited." |
|000005d0| 6e 69 6c 5d 29 0a 28 70 | 72 6f 76 69 64 65 20 27 |nil]).(p|rovide '|
|000005e0| 68 73 79 73 2d 77 33 29 | 0a                      |hsys-w3)|.       |
+--------+-------------------------+-------------------------+--------+--------+